Szövegfájl (proba.txt) tartalmának beolvasása, az "a" és "e" betűk számának kiírása (BeolvasoSzamolo.pas)
program BeolvasoSzamolo;
uses crt;
var f:text;
s:string;
function szamola(s:string):integer;
A szamola függvény megszámolja az a betűk számát és egészként visszadja azt.
var i,t:integer;
begin
t:=0;
for i:=1 to length(s) do
A ciklus addig tart, amíg a stringnek nincs vége. A length(s) visszaadja a string hosszát.
if(s[i]='a') then inc(t);
Ha a string alktuálisan vizsgált karaktere a betű, akkor növeljük a találat számát.
szamola:=t;
Visszaadjuk a találatszámot.
end;
function szamole(s:string):integer;
A szamole függvény megszámolja az e betűk számát és egészként visszadja azt.
var i,t:integer;
begin
t:=0;
for i:=1 to length(s) do
if(s[i]='e') then inc(t);
szamole:=t;
Visszaadjuk a találatszámot.
end;
BEGIN
clrscr;
assign(f,'proba.txt');
Az f változóhoz hozzárendeljük a proba.txt-t.
reset(f);
Állomány megnyitása olvasásra.
while(not eof(f)) do begin
Addig él a ciklus, amíg a fájlnak nincs vége.
readln(f,s);
Beolvasunk az f-ből egy sort s-be.
writeln(s);
writeln('Az "a"-k szama: ',szamola(s));
A kiírásba meghívjuk a szamola(s) függvényt, ami megszámolja a sorban lévő a betűket és egész számként visszaadja az értéket
writeln(' Az "e"-k szama: ',szamole(s));
end;
close(f);
Bezárjuk az olvasásra megnyitott fájlt.
readkey;
END.
